Исходный текст

'Снимает блокировки с обьектов текущего пользователя
'которые были им сделаны с чужого (не текущего) компьютера
Option Explicit

Dim lockedObjects  ' Коллекция обьектов, заблокированная пользователем
Dim oObj           ' Объектная переменная для найденного объекта
Dim lockComputer   ' С какого компьютера был заблокирован обьект
Dim msg            ' Итоговое сообщение

Set lockedObjects = ThisApplication.LockedObjects(ThisApplication.CurrentUser)
for each oObj in lockedObjects
  lockComputer = oObj.Permissions.LockComputer
  if lockComputer <> ThisApplication.CurrentComputer then    
    msg = msg + oObj.Description + ", " + lockComputer + vbCrLf
    oObj.Unlock(oObj.Permissions.LockType)
  end if
next
MsgBox "Unlocked objects: " + vbCrLf + msg